home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / FREECAT LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  29 lines
  1. 10  REM  **********************
  2. 20  REM  * FREECAT LOADER     *
  3. 30  REM  * BY S. KARATSORIDIS *
  4. 40  REM  * AFTER AN ARTICLE   *
  5. 50  REM  * BY MANUEL TEJEDA   *
  6. 60  REM  * COPYRIGHT (C) 1983 *
  7. 70  REM  * BY MICROSPARC, INC *
  8. 80  REM  * LINCOLN, MA. 01773 *
  9. 90  REM  **********************
  10. 100  HOME 
  11. 110 A$ = "FREECAT"
  12. 120  GOSUB 1000
  13. 130 A$ = "BY MANUEL TEJEDA": GOSUB 1000
  14. 140  PRINT : PRINT :A$ = "LOADER PROGRAM BY STAVROS KARATSORIDIS"
  15. 150  GOSUB 1000
  16. 160  VTAB 21: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **"
  17. 170  VTAB 15:A$ = "PRESS ANY KEY TO CONTINUE": INVERSE : GOSUB 1000: NORMAL 
  18. 180  POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0
  19. 190  HOME 
  20. 200  VTAB 3:A$ = "*** INSTALLING FREECAT ***": GOSUB 1000: PRINT : PRINT 
  21. 210  PRINT  CHR$(4);"BLOAD FREECAT,A$BCDF"
  22. 220 P$ = "ADAB:20 DF BC": GOSUB 2000
  23. 230  PRINT : PRINT "FREECAT INSTALLED."
  24. 999  END 
  25. 1000  HTAB 20 -( LEN(A$)/2): PRINT A$: RETURN 
  26. 2000 P$ = P$ +" N D9C6G"
  27. 2010  PRINT : PRINT P$
  28. 2020  FOR J = 1 TO  LEN(P$): POKE 511 +J, ASC( MID$ (P$,J,1)) +128: NEXT J: POKE 72,0: CALL  -144
  29. 2030  RETURN